home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / text / tex / amiweb2c.lha / AmiWeb2c-2.1 / texmf / amiweb2c / rexx / MakeBatch.rexx next >
Encoding:
OS/2 REXX Batch file  |  1998-03-14  |  1.6 KB  |  64 lines
  1. /* This ARexx program was automatically created by NUWEB from
  2.    the master source file `callmf.w'.  Do not edit by hand! */
  3. BATCHNAME = "S:MakeTeXFont.sh"
  4. MAKETEXFONT = "MakeTeXFont.rexx"
  5.  
  6.  
  7. Address COMMAND
  8. If ~Exists( BATCHNAME ) Then Do
  9.   If ~Open( BATCHFILE, BATCHNAME, "Write" ) Then Do
  10.     Say "MakeBatch: Could not create" BATCHNAME || "!"
  11.     Exit 10
  12.   End
  13.   Writeln( BATCHFILE, ";# Batchfile for font generation" )
  14.   If ~Close( BATCHFILE ) Then Do
  15.     Say "MakeBatch: Error during creation of" BATCHNAME || "!"
  16.     Exit 10
  17.   End
  18.   Protect BATCHNAME "Add s"
  19.   Say "MakeBatch: Batchfile" BATCHNAME "created."
  20. End
  21.  
  22. Parse Arg PARAMETERS
  23. Parse Value PARAMETERS With FONTNAME DUMMY
  24. Parse Value DUMMY With DPI HBASE VBASE DUMMY
  25. Parse Value DUMMY With DRIVER PKFILENAME PKDIR .
  26.  
  27. If "show" = DRIVER Then Do
  28.   HBASE = "100"
  29.   VBASE = "100"
  30.   PKDIR = "/amiga/"
  31.   PARAMETERS = FONTNAME DPI HBASE VBASE DRIVER PKFILENAME PKDIR
  32. End
  33.  
  34. /*
  35.  * Say "MakeBatch: Font named =" FONTNAME "with dpi =" DPI
  36.  * Say "and base x =" HBASE || ", y =" VBASE
  37.  * If "" ~= DRIVER Then
  38.  *   Say " for driver =" DRIVER || ", pkname =" PKFILENAME
  39.  */
  40. MESSAGE = "rx" MAKETEXFONT PARAMETERS
  41.  
  42. Search ">NIL:" BATCHNAME '"'MESSAGE'"'
  43.  
  44. If 0 ~= RC Then
  45.   Do
  46.     If ~Open( BATCHFILE, BATCHNAME, "Append" ) Then Do
  47.       Say "MakeBatch: Can't open" BATCHNAME "to add new entry"
  48.       Exit 10
  49.     End
  50.     
  51.     DUMMY = Writeln( BATCHFILE, MESSAGE )
  52.     If ~Close( BATCHFILE ) Then Do
  53.       Say "MakeBatch: Error while adding new entry!"
  54.       Exit 10
  55.     End
  56.     
  57.     Say "MakeBatch: New entry added for" FONTNAME DPI "dpi"
  58.   End
  59.   
  60. Else
  61.   Say "MakeBatch: Entry already exists!"
  62.  
  63. Exit 0
  64.